home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / Internal_234.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  1.1 KB  |  37 lines
  1. property spriteNum, sn, myMember, myimage, mymask, mychan, templ
  2. global drag, preloadlist, wipelist, composewidth, composeheight
  3.  
  4. on beginSprite me
  5.   sn = sprite(spriteNum)
  6.   templ = member("wipetemplate").image
  7.   me.Init()
  8. end
  9.  
  10. on Init me
  11.   n = the number of castMembers of castLib "temp" + 1
  12.   nn = castLib("temp").number
  13.   myMember = new(#bitmap, member(n, nn))
  14.   myimage = sn.member.image.duplicate()
  15.   myMember.image = myimage
  16.   myimage = myMember.image
  17.   sn.member = myMember
  18.   basespr = 107
  19.   mychan = spriteNum - basespr + 1
  20.   myimage.copyPixels(templ, templ.rect, templ.rect, [#ink: 2])
  21. end
  22.  
  23. on mouseUp me
  24.   if (drag > 0) and (drag < preloadlist.count) then
  25.     if preloadlist[drag].count > 0 then
  26.       Img = preloadlist[drag][1]
  27.       if Img.ilk = #image then
  28.         msk = image(composewidth, composeheight, 8, [#palette: #grayscale])
  29.         msk.copyPixels(Img, msk.rect, Img.rect)
  30.         wipelist[mychan] = msk
  31.         myimage.copyPixels(msk, myimage.rect, msk.rect)
  32.         myimage.copyPixels(templ, templ.rect, templ.rect, [#ink: 2])
  33.       end if
  34.     end if
  35.   end if
  36. end
  37.